home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / config.g < prev    next >
Text File  |  1997-01-14  |  3KB  |  106 lines
  1. G4C
  2.  
  3.  
  4. winbig -1 -1 500 145 "CLI-Master"
  5. wintype 11110001
  6. winout nil:
  7.  
  8.  
  9. xonload
  10. setscreen config.g $cmst_screen
  11. guiopen config.g
  12.  
  13. xonopen
  14. ifexists file env:.cmst_cfg
  15.     guiload env:.cmst_cfg
  16. endif
  17. ifexists file env:.cmst_cfglst
  18.    lvchange config.g 1 env:.cmst_cfglst
  19. else
  20.    setvar .cmst_cfglst ""
  21.    gosub config.g makelist
  22.    lvchange config.g 1 env:.cmst_cfglst
  23. endif
  24.  
  25. xonclose
  26. ifexists file env:.cmst_cfg
  27.     guiload env:.cmst_cfg
  28. endif
  29. guiquit config.g
  30.  
  31. xonquit
  32. delete env:.cmst_cfglst
  33. delvar cfg_#?
  34.  
  35. xonrmb
  36. guiclose config.g
  37.  
  38. xlistview 0 0 0 100 "" cfg_lvline env:.cmst_cfglst 0 txt
  39. gadid 1
  40. gadfont topaz.font 8 000
  41. cutvar cfg_lvline copy word 1 cfg_temp
  42. setvar cfg_word "\$$cfg_temp"
  43. update config.g 2 $cfg_word
  44. setwintitle config.g '$cfg_temp                           '
  45. setgad config.g 2 on
  46.  
  47. xbutton 0 100 100 13 "Save"
  48. ifexists file envarc:.cmst_cfg
  49.     delete envarc:.cmst_cfg
  50. endif
  51. gosub config.g makefile
  52. guiload env:.cmst_cfg
  53. copy env:.cmst_cfg envarc:
  54. guiquit config.g
  55.  
  56. xbutton 100 100 100 13 "Use"
  57. gosub config.g makefile
  58. guiload env:.cmst_cfg
  59. guiquit config.g
  60.  
  61. xbutton 200 100 100 13 "Restore"
  62. ifexists file envarc:.cmst_cfg
  63.     guiload envarc:.cmst_cfg
  64. endif
  65. gosub config.g makefile
  66. lvchange config.g 1 env:.cmst_cfg
  67. guiquit config.g
  68.  
  69. xbutton 300 100 100 13 "««« Move"
  70. lvmove config.g 1 -10
  71.  
  72. xbutton 400 100 100 13 "Move »»»"
  73. lvmove config.g 1 10
  74.  
  75. xtextin 20 123 400 13 "" cfg_strg "" 512
  76. gadid 2
  77. gosub config.g enterfile
  78.  
  79. xbutton 420 123 60 13 "Browse"
  80. reqfile -1 -1 300 -40 "Select File..." load cfg_strg SYS:
  81. extract cfg_strg unquote cfg_strg
  82. update config.g 2 $cfg_strg
  83. setgad config.g 2 on
  84. gosub config.g enterfile
  85.  
  86. xroutine makelist
  87. setvar .cmst_cfglst "DEF.EDITOR = $DEF.EDITOR\nUSERBUTS   = $USERBUTS\n"
  88. append env:.cmst_cfglst 'DEF.GFX    = $DEF.GFX\nDEF.JPG    = $DEF.JPG\n'
  89. append env:.cmst_cfglst 'DEF.8SVX   = $DEF.8SVX\nDEF.MOD    = $DEF.MOD\n'
  90. append env:.cmst_cfglst 'STOPCOM    = $STOPCOM\nDEF.GUIDE  = $DEF.GUIDE\n'
  91. append env:.cmst_cfglst 'DEF.PP     = $DEF.PP\nDEF.ICON   = $DEF.ICON'
  92. return
  93.  
  94. xroutine makefile
  95. setvar .cmst_cfg 'G4C\n\nxonload\nsetvar DEF.EDITOR "$DEF.EDITOR"\nsetvar USERBUTS "$USERBUTS"\nsetvar DEF.GFX "$DEF.GFX"\nsetvar DEF.JPG "$DEF.JPG"\nsetvar DEF.8SVX "$DEF.8SVX"\n'
  96. append env:.cmst_cfg 'setvar DEF.MOD "$DEF.MOD"\nsetvar STOPCOM "$STOPCOM"\nsetvar DEF.GUIDE "$DEF.GUIDE"\nsetvar DEF.PP "$DEF.PP"\nsetvar DEF.ICON "$DEF.ICON"\n'
  97. append env:.cmst_cfg 'guiquit .cmst_cfg\n'
  98. return
  99.  
  100. xroutine enterfile
  101. setvar $cfg_temp $cfg_strg
  102. setvar .cmst_cfglst ""
  103. gosub config.g makelist
  104. lvchange config.g 1 env:.cmst_cfglst
  105.  
  106.